unit USingleton;

interface
    uses UDM;

    var
      DM: TDM;

    function getInstance: TDM;

implementation

function getInstance: TDM;
begin
  if not Assigned(DM) then
      DM := TDM.Create(nil);
  result := DM;
end;

end.

